home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / tmpas / testmain.p < prev    next >
Text File  |  1990-10-02  |  1KB  |  56 lines
  1. { File: testmain.p
  2.  
  3.   Main part for test of tm pascal library
  4. }
  5. program tmtestprog( input, output );
  6.  
  7. type
  8. #include "testtype.h"
  9.  
  10. var
  11.     root: plotlist;
  12.     vcopy: plotlist;
  13.     readback: plotlist;
  14.     err: boolean;
  15.  
  16. { external pascal code }
  17. #include "testcode.h"
  18.  
  19. { Some external C functions that are necessary }
  20. procedure exit(i: integer);
  21. external;
  22.  
  23. begin
  24.     writeln ('|| TMTEST');
  25.     writeln( '|| Initalizing.' );
  26.     Inittest;
  27.     writeln( '|| Opening input file.');
  28.     writeln( '|| Reading Miranda data structure. ');
  29.     tmgetc( input );
  30.     err := Readplotlist( input, output, root );
  31.     if not err then begin
  32.     writeln( '|| Copying data structure.' );
  33.     vcopy := Copyplotlist( root );
  34.     writeln( '|| Comparing.' );
  35.     if Cmpplotlist( vcopy, root ) <> 0 then begin
  36.         writeln( '|| Strange, copied datastructure is not equal.' );
  37.         err := true
  38.     end;
  39.     end;
  40.     if not err then begin
  41.     writeln( '|| Disposing data structure.' );
  42.     Rfreplotlist( root );
  43.     writeln( '|| Generating Miranda.' );
  44.     Writeplotlist( output, vcopy );
  45.     writeln( '|| Statistics.' );
  46.     Rfreplotlist( vcopy );
  47.     Rfreplotlist( readback );
  48.     Stattest( output );
  49.     writeln( '|| Done.' );
  50.     end;
  51.     if err then
  52.     exit( 1 )
  53.     else
  54.     exit( 0 );
  55. end.
  56.